home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_20_1987_Transactor_Publishing.d64 / common code.gen (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  137 lines
  1. 1000 rem save"0:common code.gen",8
  2. 1010 rem a locate & display utility to
  3. 1020 rem find identical code sequences
  4. 1030 rem in machine language programs
  5. 1040 :
  6. 1050 rem this program will create
  7. 1060 rem a load and run module on
  8. 1070 rem disk called 'common code'
  9. 1080 rem
  10. 1090 for j=1 to 910 : read x
  11. 1100 ch=ch+x : next
  12. 1110 if ch<>98156 then print"checksum error" : end
  13. 1120 print "data ok, now creating file": print
  14. 1130 restore
  15. 1140 open8,8,8,"0:common code,p,w"
  16. 1150 print#8,chr$(1)chr$(8);
  17. 1160 for j=1 to 910 : read x
  18. 1170 print#8,chr$(x); : next
  19. 1180 close 8
  20. 1190 print "prg file 'common code' created...
  21. 1200 [153] "this generator no longer needed.
  22. 1210 rem
  23. 1220 data  11,   8,  10,   0, 158,  50,  48,  54
  24. 1230 data  49,   0,   0,   0, 169, 147,  32, 210
  25. 1240 data 255, 162,   0, 142, 138,  11, 142, 140
  26. 1250 data  11, 189,  35,  10, 240,   6,  32, 210
  27. 1260 data 255, 232, 208, 245, 162,   0,  32,  21
  28. 1270 data  11,  32, 165,  10, 224,   5, 176,  13
  29. 1280 data 202, 224, 255, 240,  29, 189, 130,  11
  30. 1290 data  32, 191,  10, 144, 243, 169,  13,  32
  31. 1300 data 210, 255,  32,  26,  11, 162,   0, 189
  32. 1310 data  76,  10, 240, 197,  32, 210, 255, 232
  33. 1320 data 208, 245, 162,   0,  32,  26,  11, 189
  34. 1330 data 130,  11,  32, 179,  10,  10,  10,  10
  35. 1340 data  10, 157, 130,  11, 232, 189, 130,  11
  36. 1350 data  32, 179,  10, 224,   3, 240,  10,  24
  37. 1360 data 109, 130,  11, 141, 130,  11, 232, 208
  38. 1370 data 222,  24, 109, 132,  11, 141, 132,  11
  39. 1380 data 173, 138,  11, 208,  42, 173, 130,  11
  40. 1390 data 133, 252, 173, 132,  11, 133, 251, 169
  41. 1400 data  13,  32, 210, 255, 141, 138,  11, 162
  42. 1410 data   0, 189,  89,  10, 240,   6,  32, 210
  43. 1420 data 255, 232, 208, 245, 162,   0,  32,  21
  44. 1430 data  11,  32, 165,  10,  76,  45,   8, 173
  45. 1440 data 130,  11, 141, 137,  11, 173, 132,  11
  46. 1450 data 141, 136,  11, 169,  13,  32, 210, 255
  47. 1460 data 162,   0, 189, 110,  10, 240,   6,  32
  48. 1470 data 210, 255, 232, 208, 245,  32, 228, 255
  49. 1480 data 240, 251, 201,  80, 240,   6, 201,  83
  50. 1490 data 208, 243, 240,   3,  32, 214,  10, 162
  51. 1500 data   0, 189, 143,  10, 240,   9,  32, 210
  52. 1510 data 255, 232, 208, 245,  76,  62,   8,  32
  53. 1520 data  21,  11,  32, 228, 255, 240, 251, 201
  54. 1530 data  13, 240,  46,  32, 210, 255,  32, 191
  55. 1540 data  10,  32, 179,  10,  10,  10,  10,  10
  56. 1550 data 141, 141,  11,  32, 228, 255, 240, 251
  57. 1560 data  32, 210, 255,  32, 191,  10,  32, 179
  58. 1570 data  10,  24, 109, 141,  11, 201,   2, 144
  59. 1580 data 203, 141, 139,  11, 169,  13,  32, 210
  60. 1590 data 255,  32,  26,  11, 169,  13,  32, 210
  61. 1600 data 255, 173, 139,  11,  56, 233,   2, 141
  62. 1610 data 141,  11, 173, 136,  11,  56, 237, 141
  63. 1620 data  11, 141, 136,  11, 144,  35, 173, 136
  64. 1630 data  11,  56, 237, 139,  11, 141, 134,  11
  65. 1640 data 144,  29, 173, 137,  11, 141, 135,  11
  66. 1650 data 165, 251,  24, 109, 139,  11, 133, 253
  67. 1660 data 165, 252, 105,   0, 133, 254,  76, 120
  68. 1670 data   9, 206, 137,  11,  76,  71,   9, 173
  69. 1680 data 137,  11, 233,   1,  76,  86,   9, 160
  70. 1690 data   0, 177, 251, 209, 253, 240,  65,  24
  71. 1700 data 165, 253, 105,   1, 133, 253, 165, 254
  72. 1710 data 105,   0, 133, 254, 165, 253, 205, 136
  73. 1720 data  11, 208, 228, 165, 254, 205, 137,  11
  74. 1730 data 208, 221,  24, 165, 251, 105,   1, 133
  75. 1740 data 251, 165, 252, 105,   0, 133, 252, 162
  76. 1750 data   0, 142, 140,  11, 165, 251, 205, 134
  77. 1760 data  11, 208,  10, 165, 252, 205, 135,  11
  78. 1770 data 208,   3,  76, 118,  11,  76,  89,   9
  79. 1780 data 162,   0, 160,   0, 232, 236, 139,  11
  80. 1790 data 240,  10, 200, 177, 251, 209, 253, 240
  81. 1800 data 243,  76, 128,   9, 173, 140,  11, 240
  82. 1810 data  37,  32, 237,  10, 169,  32,  32, 210
  83. 1820 data 255,  32, 210, 255, 169,  36,  32, 210
  84. 1830 data 255, 160,   0, 192,   2, 240,   9, 185
  85. 1840 data 253,   0, 153, 141,  11, 200, 208, 243
  86. 1850 data  32,  94,  11,  76, 128,   9, 169,  13
  87. 1860 data  32, 210, 255, 169,  36,  32, 210, 255
  88. 1870 data 160,   0, 192,   2, 240,   9, 185, 251
  89. 1880 data   0, 153, 141,  11, 200, 208, 243,  32
  90. 1890 data  94,  11, 169,   1, 141, 140,  11,  76
  91. 1900 data 218,   9,  32,  32,  32,  18,  67,  79
  92. 1910 data  77,  77,  79,  78,  32,  67,  79,  68
  93. 1920 data  69, 146,  13,  13,  83,  84,  65,  82
  94. 1930 data  84,  32,  65,  68,  68,  82,  69,  83
  95. 1940 data  83,  32,  73,  78,  32,  72,  69,  88
  96. 1950 data  32,  13,   0,  73,  78,  80,  85,  84
  97. 1960 data  32,  69,  82,  82,  79,  82,  13,   0
  98. 1970 data  69,  78,  68,  32,  65,  68,  68,  82
  99. 1980 data  69,  83,  83,  32,  73,  78,  32,  72
  100. 1990 data  69,  88,  32,  13,   0,  79,  85,  84
  101. 2000 data  80,  85,  84,  32,  84,  79,  32,  18
  102. 2010 data  83, 146,  67,  82,  69,  69,  78,  32
  103. 2020 data  79,  82,  32,  18,  80, 146,  82,  73
  104. 2030 data  78,  84,  69,  82,  13,   0,  66,  89
  105. 2040 data  84,  69,  32,  76,  69,  78,  71,  84
  106. 2050 data  72,  32,  73,  78,  32,  72,  69,  88
  107. 2060 data  13,  55, 157,   0,  32, 207, 255, 201
  108. 2070 data  13, 240,   6, 157, 130,  11, 232, 208
  109. 2080 data 243,  96, 201,  58, 176,   4,  56, 233
  110. 2090 data  48,  96,  56, 233,  55,  96, 201,  71
  111. 2100 data 176,  14, 201,  65, 176,   8, 201,  58
  112. 2110 data 176,   6, 201,  48, 144,   2,  24,  96
  113. 2120 data 104, 104,  76,  62,   8, 169,   7, 162
  114. 2130 data   4, 160, 255,  32, 186, 255, 169,   0
  115. 2140 data  32, 189, 255,  32, 192, 255, 162,   7
  116. 2150 data  32, 201, 255,  96, 169,   0, 141, 138
  117. 2160 data  11, 165, 203, 201,  64, 240,  23, 201
  118. 2170 data  60, 208,  19, 173, 138,  11, 208,  19
  119. 2180 data 165, 203, 201,  64, 208, 250, 169,   1
  120. 2190 data 141, 138,  11,  76, 242,  10, 173, 138
  121. 2200 data  11, 208, 222,  96, 169,   0, 133, 204
  122. 2210 data  96, 169,   1, 133, 204,  96, 162,   1
  123. 2220 data 160,   0, 189, 141,  11,  41, 240,  74
  124. 2230 data  74,  74,  74, 201,  10, 176,  26,  24
  125. 2240 data 105,  48, 153, 130,  11, 200, 192,   3
  126. 2250 data 240,  21, 176,  32, 224,   0, 240,  21
  127. 2260 data 189, 141,  11,  41,  15, 202,  76,  44
  128. 2270 data  11,  24, 105,  55,  76,  51,  11, 189
  129. 2280 data 141,  11,  76,  68,  11, 160,   2, 162
  130. 2290 data   0,  76,  35,  11,  96,  32,  31,  11
  131. 2300 data 162,   0, 224,   4, 240,   9, 189, 130
  132. 2310 data  11,  32, 210, 255, 232, 208, 243, 169
  133. 2320 data  13,  32, 210, 255,  96,  32, 204, 255
  134. 2330 data 169,   7, 141, 139,  11,  32, 195, 255
  135. 2340 data  96,   0,   0,   0,   0,   0,   0,   0
  136. 2350 data   0,   0,   7,   0,   0,   0
  137.